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MODULE LIBSGETSY f 


ormation' 
: LIBGETSYI.B832 Edit: MDL1007 
BEGIN 


leuaeentenneeenentnententnennentrentertrertntrnntentnneenennnnnnennenenntnnes 
'® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENS 
ie ONLY IN ACCORDANCE WITH THE TERMS OF 

i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTH 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP 


+ 
*® 
* 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


om mm 


is 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

oe CORPORATION. 

iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

, SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

Lee RARER RARER EEE EEE EEA EAE AEE ERA 
' 
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FACILITY: General Utility Library 
ABSTRACT: 


LIBSGETSYI obtains a specified item of System-Wide 
and formats it in an appropriate manner. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 11-Jan-1983 
MODIFIED BY: 


Original. SBL 11-Jan-1983 

Change format codes to LIBSK_FMT_. SBL 11-Mar-1983 

Change string length to 512.” SBC 11-Mar-19 

Add Support or new argument to SYSS$GETSYI - NODENAME and 

CSID. DG 19-0ct-198 

-005 - Take out support aeee in 004 temporarily. 0G 18-Feb-1984 

-006 - Add support from 004 opin - this time my gaeetng the 
optional arguments if they are present. D -Mar-1984 

1-007 = Optional argument CSID should be gessee as a 0 by value if not 
present, not by reference. MDL 19-Jul-1984 


—— at es 
t 
So 
=] 

eoee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


2 
op=1984 12:59:00 Eetarte SRedi ieee tévi 692; 1 
In 
le 


Get System-Wide Information 
Declarations 


+ ala 


: 34 § ! RSBTTL ‘Declarations’ 

: 59 3 1 | PROLOGUE FILE: 

| Ff $4. 

3 6 06) 1 REQUIRE 'RTLIN:LIBPROLOG' ; 
: 64 1 j 1! 

3 Fe : : : LINKAGES: 

Be ee 8 | be 

> 69 1 ’ 1 | TABLE OF CONTENTS: 
eR BY! 

 . 0141 1 FORWARD ROUTINE 

a. O142 1 LIBSGETSYI; 
eee 

: 06 ois MACROS: 

: 78 Giey | None 

: 80 0149 1 | EQUATED SYMBOLS: 

>: 81 150 1! 

| | bia2 1 | — 

: 84 b188 1 | FIELDS: 

>: 85 0154 1: 

BS B18 1 | — 

: 88 6189 1 | OWN STORAGE: 

: 89 0158 1! 

a b1e0 i — 

: 9 0161 1 | EXTERNALS: 

ie oy 0) 

: 95 biea 1 EXTERNAL ROUTINE 

: 96 0165 1 LIBSS$GETSYI, 

> 97 0166 1 LIBSANALYZESDESC_R2: LIBSANALYZE_SDESC_R 
: 98 0167 1 LIBSGET 

; 99 168 1 LIBSFREE_ EF: NOVALUE 
; 100 199 1 LIBSSCOPY_R_DX6: LIBS$SCOPY_R_DX6SLINKAGE; 
: 108 171 1 EXTERNAL LITERAL 

> 10 17 1 LIB$_INVARG, 

> 104 0173 1 LIBS$~STRTRU: 


AX=11 Oi hegre Pate 
LIBRTL.SRCJLIBGETSYI.652;1 


p=19B4 12:59:00 


' Switches, PSECTS, macros 


! Get System-Wide Information 


! Internal routine 
2$LINKAGE, ! Get Length and pointer 
' Allocate event flag number 
! Free event flag number 
! Copy string by reference. 


! Invalid argument 
! String truncated 


'44¢ 
! FUNCTIONAL DESCRIPTION: 


LIBSGETSYI provides a simplified interface to the $GETSYI system 
bore yes. It provides status and identification information about 
e system. 


12 
IBSGETSYI Get System-Wide Information 1h-se -1984 01:03: AX-11 Sliss-32 V4.0-74 
eit L sce SYI1 = Get Device/Volume Information 12-8 08- 1382 03:93:68 LIBRTL.SRC Libok 891 68251 
: ZSBITL ‘LIBSGETSYI = Get Device/Volume Information’ 
GLOBAL ROUTINE LIBSGETSYI 
ITEM_CODE: REF VECTOR (C, WORD), ! Code of desired item 
OUT_JALUE: REF VECTOR [, LONG), ' Output numeric value 
OUT_STRING: REF BLOCK L, BYTEJ, ' Qutput string descriptor 
OUT-LEN: REF VECTOR C RD), ' Output string Length 
CSIB: REF VECTOR LONG P ' Node identification (CSID) 
WODE E: REF BLOCK C, BYTE) ! Node name descriptor 
= 
0 
0 


LIBSGETSYI provides the following features in addition to those 
provided by the SGETSYI system service: 


o Instead of a list of item descriptors, which may be 
difficult to construct in high-level languages, the 
single item desired is specified as an integer code 
which is passed by reference. Results are written to 
separate arguments. 


oO 


o For items which return numeric values, LIBSGETSYI can 
ops tenes oy provide a formatted string interpretation of 
e value. 


o For string arguments, all hy classes supported by 
the Run-Time Library are understood. 


Calls to LIBSGETSYI are synchronous. LIBSGETSYI calls 
LIBSGET_EF to allocate a local event flag number for 
synchronization. 


LIBSGETSYI does not provide the ability to obtain more than one 
item of information in a single call. 


CALLING SEQUENCE: 


ret-status.wlc.v = LIBSGETSYI ( 
item-code.rw.r, 
out-value.wz.r] 
- Cout-string.wt.dx 
. lo t-Len.wyu.rJ ] 
. csid.mlu.r 
» node-name.rt.dx]) 


FORMAL PARAMETERS: 


item-code 
A longword integer item identifier code that seestts 
of information you are requesting. All valid SGETSY 
whose names begin with SYI$_, are accepted. 


es which item 
I item codes, 
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- Get Device/Volume Information -Sep-1 
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riggers 
5 3 out-value 
A longword or gyecuers into which is piece the numeric 
value of the information requeszes an item only returns 
a string value, this parameter is ignored. 


BESTE. 


out-strin 
A string a which is placed the string representation of 
the information requested. If out-string is not specified, 
and the value returned ane only a string representation, the 
error status LIBS_INVARG is returned. 


out-Len 
A word integer into which is placed the number of significant 
characters written to out-string, not including blank padding 
or truncated characters. 


csid 
A longword specifying the node identification (CSID) of the 
node for which information is to be returned. If not 
specified, node-name is used. The longword is updated to 
contain the CSID actually used, which may be different than 
what was originally specified if node-name is specified or 
if ‘wild card node searching’ is used. 


OOONAUE WT 


node-name 
A strin mag Hai Aa the name of the node for which 
information is to be returned. If not specified, csid 
is used. If neither node-name or csid are 
specified, the caller's node is used. See the 
description of the csid argument for more information. 


IMPLICIT INPUTS: 


POPPI PIPININPIPIPINININININININIPIPININIPINININY 
WN OS OONAULS WN" OOONAULS Ut 


Om i a kk kk kd dd td od 
AAO 


BSUS AS SRAERR RAS SSS DR OS SESE SOP E RESIS IIIS 


SOSOSOSOSOSOOSOSOSOSSOSOSOSSOSSOSOSOCOSOOSOOOSOOOOOOCOOOOOOOOOOOOOOOOOOCO r- 


Be Se Se Se Se Se Se Se Ge Se Be Se Ge Fe Ge Se Se Ge Ge Se Ge Se Ge FF Se G5 Ss Se Se SF Se Ss Se Se Oe Se Se SHS Ss Ss Se SESS Se Se Se Se SESE Se Sees tee 


rt: NONE 
$8 IMPLICIT OUTPUTS: 
6 
o8 NONE 
26 COMPLETION STATUS: 
LE: SS$_NORMAL Normal successful completion 
7 LIBS_STRTRU String truncated. This is an alternate success status. 
74 LIBS_ Insufficient event f ags 
75 LIBS_INVSTRDES Invalid string descriptor 
% LIBS_WRONUMARG Wrong number of arguments 
7 LIBS xxx Any error status from LIBSSCOPY_R_DX | 
7 SS$_BADPARAM The item code is not recognized aS valid. 
4 SS$_xxx Any error status from $GETSYI 
ei SIDE EFFECTS: 
i NONE 
5 
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tem-Wide Information 18-5¢ -1984 01:03: AX-11 Bliss-32 
SYI1 = Get Device/Volume Information 1 ~3007 138% 93:93:68 LIBRTL.SRCILIBG 
BEGIN 
LOCAL 
RET_STRING: VECTOR (512, BYTE), ! Local string for value 
RET_LENGTH: ' Length of RET_STRING 
RET-NUMBER: VECTOR (2, LONG], i Local quadword for value 
RET TYPE ' Returned type code 
EVENT FLAG, i Event flag number 
Fa SEaTUS SYI_STATUS, COPY_STATUS, ! Return statuses 
LCL“NODE_NAM_DSC: BLOCK (8, BYTE), ' Local descriptor for NODE_NAM 
NODE _NAM_DSC_ADR; ! Address of NODE_NAM descriptor 
BUILTIN 
NULLPARAMETER; 


1+ 
Validate argument count. 


SLIBSVALIDATE_ARGCOUNT (2,6); 
14 
Build static descriptor for NODE_NAME, if any. 


it NULLPARAMETER (6) 


N 

NODE_NAM_DSC_ADR = 0 ! Omitted 

ELSE 

LCL_NODE_NAM_DSC DS¢$B_DTyPE] = DSCSK_DTYPE_T; 

LCL“NODE-NAM_DSC CDSC$B-CLASS] = DSC$K CLASS_S i 

STR-STATUS = LIBSANALYZE SDESC_R2 (NODE NAME~LO,0,0,0); 

LCL_NODE_NAM_ DSC CDSCS$W_LENGTH], LCC_NODE_NAM.DSC EDSCSA_POINTER)); 

IF NOT .STR_STATOS 


THEN 
RETURN .STR_STATUS; 
NODE _NAM_DSC_ADR = LCL{NODE_NAM_DSC; 


1+ 
Allocate an event flag number to use for the S$GETSYI. 


EF_STATUS = LIBSGET_EF (EVENT_FLAG); 
IF"NOT .EF_STATUS 


RETURN .EF STATUS; 
'¢ 
: Call LIBSSGETSYI to do the work. 


SYI_STATUS = LIBS$GETSYI ( 
ITEM_CODE (OJ, 
RET_STRING, 


Vv 
E 


+301 a8 
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H 1 
Get syeyen-uige Information 16-5ep-1 
IBSGETSYI = Get Device/Volume Information 14-Sep-1 


NUMBER, 
ENGTH, 


1. 
EVENT FLAG 
CIF NOLLPARAMETER (5) 
0 ! Omitted 
ELSE 
CSID ) 
.NODE_NAM_DSC_ADR); 
1+ 
} Free the event flag. 
LIBSFREE_EF (EVENT_FLAG); 
4 
4 
4 
4 
4 
4 
4 
4 


+ 
Check for errors. 


IF NOT .SYI_STATUS 
RETURN .SYI_STATUS; 


MEW O OONAOVL SUM" OVOONOUNLE Ww 
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SmSSSE 


+ 
: Store string value if desired. 


WANA 
SSLSARENLSSELSEAE 


IF NOT NULLPARAMETER (3) 
THEN 
BEGIN 
COPY_STATUS = ay 
STRING 0 
IF NOT RULLPARAMETER ¢ 
GEGIN 
i Store result string length. 


Y 
03); 
4) 


SOOoooooooooooooeoo 


Be 12:83:60 


8 + 
H : Copy the numeric value, if desired. 
71 : 
ie IF OUT_VALUE [0] NEQA 0 
7 THEN 
74 BEGIN 
0376 A a canine GTRU LIBSK_FMT_MAXSTRING ' Is it a number? 
ig BEGIN 
378 OUT_VALUE CO] = .RET_NUMBER (0); 
144 IF TRET_TYPE EQL LIBSK_FMT_DATE OR 
381 eRET_TYPE EQL LIBSK_FMT_PRIVILEGE 
8 
38 ; 


R_DX6 (.RET_LENGTH, RET_STRING, 


AX-1 
LIBR 


1 Ol iegrse Yi 0788 
TL. SRCIJLIBGETSYI.852;1 


THEN 
. OUT_VALUE C1] = .RET_NUMBER [1]; ! Store second longword 


| 


Wb0F aS SEEEY 
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Se ee Ge ee Oe Ge Ge Ge Se ee Se Ge Se Sees 


50 


ty Ag Information 1§-ep-1984 9}: 93: 8 {tert TL. BR tit ibctts9 1682; 37 — (4 


out LEN CO) = .RET LENGTH 
4 gcoPY. STATUS EQCU ies. STRTRU 


LIBSANALYZE_SDESC_R2 (OUT_STRING (0,0,0,03; OUT_LEN (0); 
RETURN .COPY_STATUS; 
ELSE IF .RET_TYPE LEQU LIBSK_FMT_MAXSTRING 


THEN 
RETURN LIBS_INVARG; ! Only string value, but nothing to return it in 
RETURN SS$_NORMAL; ! Success 
END; ! End of routine LIBSGETSYI 
TITLE ULI me + he Get System-Wide Information 
“IDENT \1-00 
-EXTRN LIBSSGETSYI, LIBSANALYZE _SDESC_R2 
-EXTRN LIBSGET_EF, LIBSFREE_EF 
.EXTRN LIBSSCOPY bxé 
-EXTRN LIBS_ iN NVARGS LIB$_STRTRU 
.EXTRN LIB$_WRONUMARG 
-PSECT _LIBSCODE.NOWRT, SHR, PIC,2 
OOFC 99000 .ENTRY LIBSGETSYI, Save R2,R3,R4,R5,R6,R7 : 0175 
57 000000006 00 9E 0000 MOVAB Lies, BSANAL YZE_SDESC_R2, R7 : 
5E FOES C 4 00 MOV . SP : 
g 000 SUBB3 #2 5h DIFF + 0306 
04 1 0001 CMPBC#OédLFF, #4" ; 
08 1B 0001 BLEQU ; 
50 000000006 8F D0 0001 MOVL § #LIBS_WRONUMARG, RO : 
04 0001E RET : 
06 6¢ 91 OOO1F 18% (AP), #6 : 0312 
1F 00022 BLSSU : 
18 «AC b3 0024 TST 4 (AP) : 
4 1 027 BNEQ : 
3 04 00029 28 CLRL § NODE_NAM_DSC_ADR > 0314 
1B 11 9 B BRB 4$ : 
OE A 0106 8F 8B 3$ MOVW #270, LCL_NODE_NAM_DSC+2 ; 0317 
5 1 AC p MOVL NODE : 
JSB IBSANALYZE SDESC_R2 F 
Oc (AE 1 8 9 MOV Rie LCL_NODE_NAM_BSC : 
10 AE 2 D MOVL R2 LCL TNOve “NAM~DSC+4 : 
OF 41 BLBC  STR_STATUS, 5$ : 0321 
oc AE 9E 4 V LCL“NODE_NAM_DSC, NODE_NAM_DSC_ADR > 0324 
000000006 00 F Pe oobeB atic atl — 
8 % eB : 5$: BLBS EF STATUS, 8 ; 0332 
53 bo $ 68: PUSHL NODE_NAM_DSC_ADR ; 0353 
05 6¢ CMPB. s« (AP) > > 034 
1F 9 B BLSSU7$ ; 
14 AC DS D TSTL  20(¢AP) ; 
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LI Yl = Get Device/Volume Information -Sep-1 (4) 
6 1 BNEQ 8$ : 
3 0 7$ CLRL = = (SP) : 
0 1 BRB oF : 
50 14 AC 9 8$ MOVAB cS1D, RO : 
50 0D A PUSHL R : 
AE 0D C 9S PUSHL EVENT_FLAG : 0346 
C AE OOF F PUSHAB RET_TYPE + 034 
4 AE OOF PUSHAB RET-LENGTH : 
8 AE 9F 0007 PUSHAB RET-NUMBER : 
: a BE 3e 00078 MOVIWE SITER CODE, =(SP) 9341 
000000006 0 os FB 7F CALLS a. LTBSS$GETSYI : 
p 86 VL —-RO, ~SYI_STATUS : 
08 AE OF 00 PUSHAB EVENT_FCAG + 0358 
000000006 00 FB g CALLS #1, LIBSFREE FF ; 
4 5 E BLBS § SY{_STATUS, TOS + 0364 
0 bo % MOVL SYI“STATUS, RO : 0366 
50 08 A 09 9A 10$: MOVL OUT VALUE. RO + 0372 
18 13 0009 BEQL 128 ; 
03 6E D1 000A CMPL RET _TYPE, #3 : 0375 
1 18 OOA BLEGU 128 : 
60 14 AE DO OOOA MOVL § RET_NUMBER, (RO) : 0378 
08 6f D1 0009 CMPL RET-TYPE, #11 : 0379 
13 OOOAC BEQL =-«w118 : 
0c 6— D1 OOOAE CMPL RET_TYPE, #12 : 0380 
0 i 0081 BNEQ 12$ 3 
04 A 18 AE p 0085 11$ MOVL RET NUMBER*4, 4(RO) : 0382 
0 6C 9100088 12$: CMPB (APY, # 3 03 
40 1 00088 BLSSU 148 ; 
oc ac 03 908 TSTL 12¢AP) : 
3B 13 O00C BEQL 148 : 
51 1c «(AE 9 00C MOVAB RET_STRING, R1 : 0393 
32 oc ac p 6 C6 VL OUT“STRING, R + 0394 
5 04 AE C OOOCA MOVZWL RETLENGTH, R ; 
000000006 9 16 OOOCE JS LIBSSCOPY_R_DX : 
53 0 0 004 MOVL RO, COPY_STATUS 3 
04 6C 91 00007 CM (AP), #4 : 0395 
1D 1F OOODA BLSSU-13$ : 
10 AC 05 0000C TST 1<AP) : 
18 «1 DF BEQL 13$ : 
10 BC 04 AE B £1 MOVW §RET_LENGTH, @OUT_LEN + 0401 
000000006 8F 33 D4 E6 cMPL COPT_STATUS, #LIB$_STRTRU + 0402 
50 0c ac p EF MOVL § OUT_STRING, RO + 0404 
10 8 ae Te : 
8 3 BO rg 13$: HOVL COPY_STATUS, RO + 0406 
03 pi FD 148:  CMPL  RET_TYPE, #3 > 0408 
A 001 BGTRU ; 
50 000000006 8F 9 MOVL #LIBS_INVARG, RO : 0410 
50 01 b0 10A 15$ MOVL #1, RO + 0412 
4 001 RET > 0414 


3; Routine Size: 270 bytes, Routine Base: _LIBSCODE + 0000 


—_—_—_—— 


LIBSGETSYI 
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IBSGETSYI Get System-Wide Information -$e0-1984 AX-11 Bliss-32 V4.0-74 P 1 
859° Lieseersy1 - Get Device/Volume Information 12-800- 138 9}: $3 8 LIBRTL.SRC LIGET $891 68251 tees 33 
; 339 bile } END ! End of module LIBSGETSYI 
: 29 419 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _LIBSCODE 270 NOVEC,NOURT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

3 scsaesse SEROUS Seeeence Pages Processing 
: File Total Loaded Percent Mapped Time 

; $ 255$DUA28: (SYSLIBISTARLET.L32:1 9776 7 0 581 00:00.8 
; PETTITT LIBRTL.OBJIRTLLIB.L32;1 36 6 16 8 00:00.1 
; COMMAND QUALIFIERS 


GLISS/CHECK OCF ELD. INITIAL .OPTIMIZE) /MOTRACE/L IS9L [58:1 18GETS¥ 5 /08)=08)8 01 IBGE TSY! MSRC$:LIBGETSYI/UPDATE=(ENH$:LIBGETSYI 


Size: 
ny Time : 
Fy apeed tHaee : 
Lines/CPU Min 486 
Lexenes/CPU-A “Min: 17206 
cee | Used: 107 pages 
Compi ation. Complete 


EE : 0 data bytes 
5 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 | _ CONF 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


020 


